home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / MIXCASE.ZIP;1 / MIXCASE.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1993-04-25  |  1.1 KB  |  39 lines
  1. 10  'MIXCASE.BAS      copyright G.Michels  -mar 1990
  2. 15  'THIS PROGRAM CHANGES ALL UPPERCASE CHAR.TO MIXED CASE
  3. 16  '
  4. 17  '
  5. 20  '32=SP   91=[   47=/  10=LF  13=C/R  65-90=CAPITAL LETTERS
  6. 100  CLS
  7. 110  PRINT "WHICH .DOC FILE DO YOU WANT TO CHANGE TO MIXED CASE LETTERS? "
  8. 115  PRINT ".DOC EXTENSION IS ASSUMED AND NEED NOT BE TYPED IN: "
  9. 120  INPUT UP$:UPP$=UP$+".DOC"
  10. 130  PRINT "NAME OUTPUT  .DOC FILE: "
  11. 140  INPUT LW$:LOW$=LW$+".DOC"
  12. 145  'KILL LOW$
  13. 150  OPEN"R",#2,LOW$,70
  14. 160  FIELD #2,70 AS D$
  15. 170  OPEN "I",#1, UPP$
  16. 180  Y=0:Z=0:N=0
  17. 190  A$=INPUT$(1,#1)
  18. 200  IF EOF(1) THEN 380
  19. 210  IF A$<>CHR$(32) THEN Y=0
  20. 220  IF A$=CHR$(91) THEN A$=INPUT$(1,#1):GOTO 280
  21. 230  IF A$=CHR$(10) THEN GOSUB 350:A$=INPUT$(1,#1):GOSUB 350:GOTO 190
  22. 235  'IF A$=CHR$(13) THEN Z=70:GOSUB 350:GOTO 190
  23. 240  IF A$=CHR$(32) THEN Y=Y+1:GOTO 310
  24. 250  IF A$=CHR$(47) THEN A$=INPUT$(1,#1):GOSUB 350:GOTO 190
  25. 260  IF ASC(A$)<65 OR ASC(A$)>90 THEN GOSUB 350:GOTO 190
  26. 270  IF EOF (1) THEN 380
  27. 280  X=ASC(A$)+32
  28. 290  A$=CHR$(X)
  29. 300  GOSUB 350:GOTO 190
  30. 310  IF Y=1 THEN GOSUB 350:GOTO 190
  31. 320  IF Y=2 THEN GOSUB 350:A$=INPUT$(1,#1):IF A$=CHR$(32) THEN Y=Y+1
  32. 330  IF A$<>CHR$(32) THEN Y=0
  33. 340  GOSUB 350:GOTO 190
  34. 350  IF EOF(1) THEN 380
  35. 360  IF Z=70 THEN N=N+1:LSET D$=B$:PRINT D$;:PUT #2,N:B$="":B$=B$+A$:Z=1:RETURN
  36. 370  Z=Z+1:B$=B$+A$:IF Y=>2 THEN Y=Y+1
  37. 375  RETURN
  38. 380  N=N+1:B$=B$+A$:LSET D$=B$:PRINT D$;:PUT #2,N:CLOSE:END
  39.